home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / tool / mopterm / line.plt next >
Text File  |  1994-11-16  |  14KB  |  558 lines
  1. /*                                    *
  2. *    　Ｌｉｎｅ　Ｃｏｎｔｒｏｌ　Ａｕｔｏ　Ｐｉｌｏｔ        *
  3. *                                    *
  4. *     このオートパイロットについては，流用，変更，組み込み，         *
  5. *　　　　　　　　　                許可なくＯＫです。     *
  6. *    ただし，以下の著作権表示については，必ず，コピーして下さい。    *
  7. *                                    *
  8. *    All Right Reserved, Copyright (c)  モップ(NIFTY-PFF00570) 1992    *
  9. *                   　　　　　　　　　　　　  (Masahiro Kezuka)            *
  10. *                   　　　　　　　　　　　　　　　　　　　               *
  11. *                                  1992年 3月 22日 初版  Ver0.01              *
  12. *                                  1992年 4月  5日 二版  Ver0.02              *
  13. *                                  1992年 7月 17日 三版  Ver0.03              *
  14. *                   　　　　　　　　　　　　　　　　　　　               *
  15. *      作成/利用ファイル ｢LINE.DAT｣　　　　　　　　　　　　               *
  16. *                   　　　　　　　　　　　　　　　　　　　               *
  17. *                                                           */
  18.  
  19. var AttrData[256];    /* MOPTERMの属性等 file｢LINE.DAT｣の頭5行*/
  20. var LineData[8192];    /* 登録したセンターの情報 LINE.DATの6行目以降
  21.     各行が    センター名/電話番号/モデムコマンド/属性データ     */
  22. var CurDir[64];        /* 起動時のﾃﾞｨﾚｸﾄﾘｰ            */
  23. var OneSize[4];        /* each Center data size        */
  24. var NumHost[4];        /* 登録されているセンターの数        */
  25. %OneSizeM 16+2+80+2+80+2; /* minimum OneHost Data Size        */
  26.  
  27. /***********************************************************************
  28. *
  29. *              共通の処理ルーチン
  30. *
  31. ***********************************************************************/
  32. /*  パラメタで指定されたファイルを削除する */
  33. /*%delfile{ [ filename ]   組み込み文でMopTerm本体が実現したため */
  34. /*    dispoff({Yes});           コメント化                     */
  35. /*    command({del }|filename);                                */
  36. /*    dispoff({No})                                            */
  37. /*};                                               */
  38.  
  39. /* パラメタで指定されたディレクトリへ移動する(｢A:\｣と｢A:｣の両方が可能) */
  40. %setcdir2 {[dir]
  41.     %dir2 @case(@nochar(dir),
  42.         2,{im(dir|{\})},,{im(dir)});
  43.     setcdir(dir2)
  44. };
  45.  
  46. %zerop{[num,deg]
  47.     var ans[deg];
  48.     var i[3];
  49.     i:=@nochar(num);
  50.     case(i!=deg,{Yes},
  51.     {
  52.         loop({
  53.             ans:=ans|{0};
  54.             i:=i+1;
  55.             im(i<deg)
  56.         });
  57.         im(ans | num);
  58.     },,{
  59.         im(num)
  60.     })
  61. };
  62.  
  63.  
  64. %blankp{[num,deg]
  65.     var ans[deg];
  66.     var i[3];
  67.     i:=@nochar(num);
  68.     case(i!=deg,{Yes},
  69.     {
  70.         loop({
  71.             ans:=ans|{ };
  72.             i:=i+1;
  73.             im(i<deg)
  74.         });
  75.         im( num | ans);
  76.     },,{
  77.         im(num)
  78.     })
  79. };
  80.  
  81. %makefile{
  82.     AttrData:={**MOPTERM HOST DATA Ver0.01**\n}|
  83.         {13111111208%$\n}|
  84.         {\n\n\n};
  85.     LineData:={};
  86.     write(LineFile,AttrData);
  87.     write(LineFile,LineData);
  88.     case(@filechk( LineFile ),{No},{
  89.         plane(
  90. {c管理用のﾌｧｲﾙ｢LINE.DAT｣が，ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘｰに作成できません｡
  91. c ｢MOPTERM.EXP｣を CD又は, 
  92. c           ﾌﾟﾛﾃｸﾄの掛かったﾌﾛｯﾋﾟｰに置いて起動していませんか？｡
  93. c  CDの場合, ﾌﾛｯﾋﾟｰ等にｺﾋﾟｰしてお使い下さい。
  94. c 
  95. s 　　　　　　　　                             /確認});
  96.         stop
  97.     });
  98.     OneSize:=OneSizeM;
  99. };
  100.  
  101. %RepFile{
  102.     delfile(LineFile);
  103.     write(LineFile,AttrData);
  104.     write(LineFile,LineData);
  105. };
  106.  
  107. %SetCName{
  108.     var pos[5];
  109.     var StartP[5];
  110.     var MenuText[1024];
  111.     var Line[80];
  112.     pos:=0;    
  113.     StartP:=1;
  114.     NumHost:=0;
  115.     crchg({No});
  116.     loop({
  117.         %Name @getchar(LineData,StartP,16);
  118.         case(Name<>{} && NumHost<=45,
  119.         {Yes},{ Line:=
  120.              @case(pos,
  121.                 0,{pos:=1;im({\ns    })},
  122.                 1,{pos:=2;im({})},
  123.                 2,{pos:=0;im({})} )
  124.                      | {/} | Name;
  125.             MenuText:=MenuText | Line;
  126.             NumHost:=NumHost+1;
  127.             StartP:=StartP+OneSize;
  128.             im({Yes})
  129.         },,{im({No})})
  130.     });
  131.     crchg({Yes});
  132.     /*display(NumHost|{=host\n});*/
  133.     im(MenuText)
  134. };
  135.  
  136. %DelCenter{
  137.     var line[5];
  138.     %DelCA{[num]
  139.         %Name @head(@getline(LineData,(num-1)*3+1,1),{\n});
  140.         select({ ｢}|Name|{｣の定義を削除しますか？},99999,{},
  141.         {   削除する   },{
  142.             LineData:=@getline(LineData,1,(num-1)*3) |
  143.                   @getline(LineData,num*3+1,9999);
  144.             RepFile;
  145.         },{  削除しない  },{})
  146.     };
  147.  
  148.     %MenuText {c　   　　＜＜削除するセンタを選択して下さい＞＞\n}|
  149.           {s  　　　　　　    　　　　　　　　　　　/< 処理中止 >};
  150.     %MenuRes @plane(MenuText|@SetCName);
  151.     case(@head(@getline(MenuRes,1,1),{\n})+0,
  152.     0,{
  153.         line:=2;
  154.         loop({
  155.             %no @head(@getline(MenuRes,line,1),{\n});
  156.             case(no!=0,{Yes},{DelCA((line-2)*3+no)});
  157.             line:=line+1;
  158.             im((no == 0) && (no <> {}))
  159.         })
  160.     });
  161. };
  162.  
  163. /* 登録変更用の,共通ルーチン,共通変数 */
  164. %SetT {[line,leng]
  165.     blankp(@head(@getline(res,line,1),{\n}),leng)
  166. };
  167. %SetD {[line]
  168.     im(@head(@getline(res,line,1),{\n})+0)
  169. };
  170. %SetDn {[line,leng]
  171.     zerop(@head(@getline(res,line,1),{\n})+0,leng)
  172. };
  173.  
  174. %CenMenuD{[title]
  175.     %CenterA2
  176. {r通信速度    : / 300 /1200 /2400 /4800 /9600
  177. rStopBit     : / 1 bit   / 2 Bit
  178. rParity      : / None    / Odd    / Even
  179. rDataleng    : / 8 bit   / 7 bit
  180. r先行送信行数: / 4  / 3  / 2  / 1
  181. r送信入力方式: /行単位   /文字単位1/文字単位2
  182. r受信改行方式: /復改同時 / 復改別
  183. tリトライ回数(0:無限) /123
  184. };
  185.     %Attr  @getline(AttrData,2,1);
  186.  
  187.     %BaudR @case(@getchar(OldL3,7,1)+0,0,
  188.         {getchar(Attr,2,1)},,
  189.         {getchar(OldL3,7,1)});
  190.  
  191.     %OldL3 @getline(NewLine,3,1);
  192.     %res @plane({c　　　　＜＜センター付加属性}|Title|{画面＞＞\n} |
  193.         CenterA2 |
  194.         {s                                /}|Title|{しない/ }
  195.             |Title|{する},
  196.     BaudR,
  197.     @getchar(OldL3,8,1),    @getchar(OldL3,9,1),
  198.     @getchar(OldL3,10,1),    @getchar(OldL3,11,1),
  199.     @getchar(OldL3,12,1),    @getchar(OldL3,13,1),
  200.     @getchar(OldL3,14,3)+0 );
  201.     case(@SetD(9),
  202.     2,{
  203.         NewLine:= @getline(NewLine,1,2) | @getchar(OldL3,1,6)
  204.             | @SetD(1) | @SetD(2) | @SetD(3)
  205.             | @SetD(4) | @SetD(5) | @SetD(6) 
  206.             | @SetD(7) | @SetDn(8,3);
  207.     });
  208. };
  209.  
  210.  
  211. %CenMenu{[OLine,Title]
  212.  
  213.     %CenterAt
  214. {tセンター名(任意)    /1234567890123456
  215. t電話番号             /123456789012345678901234567890
  216. tモデムコマンド       /123456789012345678901234567890
  217. rコード系: /SJIS /JIS  /旧JIS/EUC
  218. r行の終わりのコード(送信時): /CR /LF /CR+LF
  219. rﾌﾛｰ 制御: /RS-CS線(ﾊｰﾄﾞ) /X-制御(ｿﾌﾄ) /無し
  220. rESC ｺｰﾄﾞ: /ESC無し   /ESCあり
  221. rCTRLｺｰﾄﾞ: /CTRL無し  /CTRLあり
  222. rFlying X: /使用しない/使用する
  223. t接続後のｵｰﾄﾊﾟｲﾛｯﾄ(あれば) /12345678901234567890
  224. };
  225.     var NewLine[256];
  226.  
  227.     NewLine:=OLine;
  228.     loop({
  229.     %OldL  NewLine;
  230.     %OldL2 @getline(OldL,2,1);
  231.     %OldL3 @getline(OldL,3,1);
  232.  
  233.     %res @plane({c　　　　　　＜＜センター} | Title | {画面＞＞\n} |
  234.         CenterAt |
  235.         {s                      /}|Title|{しない/ }
  236.             |Title|{する / 付加属性},
  237.     @head(@head(OldL,{\n}),{ }),
  238.     @head(@getchar(OldL2,1,30),{ }), @head(@getchar(OldL2,31,30),{ }),
  239.     @getchar(OldL3,1,1),    @getchar(OldL3,2,1),
  240.     @getchar(OldL3,3,1),    @getchar(OldL3,4,1),
  241.     @getchar(OldL3,5,1),    @getchar(OldL3,6,1),
  242.     @head(@getchar(OldL2,61,20),{ })  );
  243.     case(@SetD(11)>=2,
  244.     {Yes},{
  245.         NewLine:=@SetT(1,16) | {\n} 
  246.             | @SetT(2,30) | @SetT(3,30) | @SetT(10,20) | {\n}
  247.             | @SetD(4) | @SetD(5) | @SetD(6)
  248.             | @SetD(7) | @SetD(8) | @SetD(9)
  249.             | @getchar(OldL3,7) ;
  250.         case(@SetD(11),
  251.         2,{
  252.             NewLine:=@blankp(NewLine,OneSize-2) | {\n};
  253.             im({No})
  254.         },3,{    CenMenuD(Title);
  255.             im({Yes})
  256.         })
  257.     },,{
  258.         NewLine:={};
  259.         im({No})
  260.     })
  261.     });  /* end of loop */
  262.     im(NewLine)
  263. };
  264.  
  265. %MopMenu{[OLine,Title]
  266.  
  267.     %CenterAt
  268. {r回線種別  : /ﾀﾞｲﾔﾙ回線 /ﾌﾟｯｼｭ回線
  269. r通信速度  : / 300 /1200 /2400 /4800 /9600
  270. rポート種別: /自動切替/内蔵      /外部ポート
  271. r文書送信時送信ﾃﾞｰﾀ表示: /無し    /有り
  272. rクリック音: /無し    /有り
  273. r納豆ｽｸﾛｰﾙ : /無し    /有り
  274. rﾛｰﾏ時入力 : /無し    /有り
  275. rVisiBell  : /無し    /有り
  276. r改行ﾏｰｸ   : /無し    /有り
  277. tﾀﾌﾞ桁数       /xx
  278. tDOSｺﾏﾝﾄﾞ文字  /x
  279. tｵｰﾄﾊﾟｲﾛｯﾄ文字 /x
  280. };
  281.         var NewLine[256];
  282.  
  283.         NewLine:=OLine;
  284.     %OldL  NewLine;
  285.  
  286.     %res @plane({c　　　　　　＜＜MopTerm属性} | Title | {画面＞＞\n} |
  287.         CenterAt |
  288.         {s                              /変更しない/ 変更する },
  289.     @getchar(OldL,1,1),    @getchar(OldL,2,1),
  290.     @getchar(OldL,3,1),    @getchar(OldL,4,1),
  291.     @getchar(OldL,5,1),    @getchar(OldL,6,1),
  292.     @getchar(OldL,7,1),    @getchar(OldL,8,1),
  293.     @getchar(OldL,9,1),    @getchar(OldL,10,2)+0,
  294.     @getchar(OldL,12,1),    @getchar(OldL,13,1),
  295.     );
  296.     case(@SetD(13)>=2,
  297.     {Yes},{
  298.         NewLine:= @SetD(1) | @SetD(2) | @SetD(3) | @SetD(4)
  299.             | @SetD(5) | @SetD(6) | @SetD(7) | @SetD(8)
  300.             | @SetD(9) | @SetDn(10,2) | @SetT(11,1) | @SetT(12,1)
  301.             | {\n};
  302.     },,{
  303.         NewLine:={};
  304.     });
  305.         im(NewLine)
  306. };
  307.  
  308. %AddCenter{
  309.     %NewL @CenMenu({},{登録});
  310.     case(NewL<>{},{Yes},{
  311.         LineData:=LineData | NewL;
  312.         write(LineFile,NewL);
  313.     });
  314. };
  315.  
  316. %RepC2{[num]
  317.     %OldL @getchar(@getline(LineData,(num-1)*3+1,3),1,OneSize-2);
  318.  
  319.     %NewL @CenMenu(OldL,{変更});
  320.     case(NewL<>{},{Yes},{
  321.         LineData:=@getline(LineData,1,(num-1)*3) |
  322.                   NewL |
  323.               @getline(LineData,num*3+1,9999);
  324.         RepFile;
  325.     })
  326. };
  327.  
  328. %RepMop{
  329.     %OldL @head(@getline(AttrData,2,1),{\n});
  330.  
  331.     %NewL @MopMenu(OldL,{変更});
  332.     case(NewL<>{},{Yes},{
  333.         AttrData:=@getline(AttrData,1,1) |
  334.                   NewL |
  335.               @getline(AttrData,3,9999);
  336.         RepFile;
  337.     })
  338. };
  339.  
  340. %RepCenter{
  341.     var line[5];
  342.  
  343.     %MenuText {c　   　　＜＜変更するセンタを選択して下さい＞＞\n}|
  344.           {s  　　　　　     　　　　　　　　　　　　/< 処理中止 >};
  345.     %MenuRes @plane(MenuText|@SetCName);
  346.     case(@head(@getline(MenuRes,1,1),{\n})+0,
  347.     0,{
  348.         line:=2;
  349.         loop({
  350.             %no @head(@getline(MenuRes,line,1),{\n});
  351.             case(no!=0,{Yes},{RepC2((line-2)*3+no)});
  352.             line:=line+1;
  353.             im((no == 0) && (no <> {}))
  354.         })
  355.     });
  356. };
  357.  
  358. %SetMop{
  359.     %Attr  @getline(AttrData,2,1);
  360.     %SetYN {[num,func]
  361.         %p @case(@getchar(Attr,num,1),
  362.             1,{   im(func | {({No})} ) },
  363.             2,{   im(func | {({Yes})}) },
  364.              ,{   im({})               } );
  365.         p
  366.     };
  367.  
  368.     case(@getchar(Attr,3,1),
  369.     1,{   port0({auto})
  370.     },2,{ port0({in})
  371.     },3,{ port0({out})
  372.     });
  373.     SetYN(4,{dispecho});
  374.     SetYN(5,{click});
  375.     SetYN(6,{nattou});
  376.  
  377.     case(@getchar(Attr,7,1),
  378.     1,{   setoak({J})
  379.     },2,{ setoak({JR})
  380.     });
  381.  
  382.     SetYN(8,{visibell});
  383.     SetYN(9,{retmark});
  384.  
  385.     case(@getchar(Attr,10,2)!=0,
  386.     {Yes},{   tab(@getchar(Attr,10,2))
  387.     });
  388.     case((@getchar(Attr,12,1)<>{}) && (@getchar(Attr,12,1)<>{ }),
  389.     {Yes},{   doschar(@getchar(Attr,12,1))
  390.     });
  391.     case((@getchar(Attr,13,1)<>{}) && (@getchar(Attr,13,1)<>{ }),
  392.     {Yes},{   pilotch(@getchar(Attr,13,1))
  393.     });
  394.  
  395. };
  396.  
  397. %AccCenter{[num]
  398.     %OldL @getline(LineData,(num-1)*3+1,3);
  399.     %OldL2 @getline(OldL,2,1);
  400.     %OldL3 @getline(OldL,3,1);
  401.     %Attr  @getline(AttrData,2,1);
  402.     var DialAT[100];
  403.     var count[4];
  404.  
  405.     %message {｢}|@head(OldL,{\n}) |{｣ へアクセスします｡ (}|@daylong | {)};
  406.     display({\n}| message | {\n});
  407.     footnote(message);
  408.  
  409.     case(@getchar(OldL3,1,1),
  410.     1,{   code({sjis})
  411.     },2,{ code({jis})
  412.     },3,{ code({ojis})
  413.     },4,{ code({euc})
  414.     });
  415.     case(@getchar(OldL3,2,1),
  416.     1,{   lineend({CR}); lineendt({CR})
  417.     },2,{ lineend({LF}); lineendt({LF})
  418.     },3,{ lineend({CRLF}); lineendt({CRLF})
  419.     });
  420.     case(@getchar(OldL3,3,1),
  421.     1,{   rscs({Yes}); xon({No})
  422.     },2,{ rscs({No});  xon({Yes})
  423.     },3,{ rscs({No});  xon({No})
  424.     });
  425.     case(@getchar(OldL3,4,1),
  426.     1,{   esc({No})
  427.     },2,{ esc({Yes})
  428.     });
  429.     case(@getchar(OldL3,5,1),
  430.     1,{   ctrl({No})
  431.     },2,{ ctrl({Yes})
  432.     });
  433.     case(@getchar(OldL3,6,1),
  434.     1,{   flyingx({No})
  435.     },2,{ flyingx({Yes})
  436.     });
  437.     %BaudR @case(@getchar(OldL3,7,1)+0,0,
  438.         {getchar(Attr,2,1)},,
  439.         {getchar(OldL3,7,1)});
  440.     case(BaudR+0,
  441.     1,{ baud(300)
  442.     },2,{ baud(1200)
  443.     },3,{ baud(2400)
  444.     },4,{ baud(4800)
  445.     },5,{ baud(9600)
  446.     });
  447.     case(@getchar(OldL3,8,1),
  448.     1,{   stopbit(1)
  449.     },2,{ stopbit(2)
  450.     });
  451.     case(@getchar(OldL3,9,1),
  452.     1,{   parity({None})
  453.     },2,{ parity({Odd})
  454.     },3,{ parity({Even})
  455.     });
  456.     case(@getchar(OldL3,10,1),
  457.     1,{   dataleng(8)
  458.     },2,{ dataleng(7)
  459.     });
  460.     case(@getchar(OldL3,11,1)<>{ },
  461.     {Yes},{   flyline(@getchar(OldL3,11,1))
  462.     });
  463.     case(@getchar(OldL3,12,1),
  464.     1,{   sendtype({Line})
  465.     },2,{ sendtype({Ch/2})
  466.     },3,{ sendtype({Ch/1})
  467.     });
  468.     case(@getchar(OldL3,13,1),
  469.     1,{   crmode({No})
  470.     },2,{ crmode({Yes})
  471.     });
  472.  
  473.     DialAT:=@head(@getchar(OldL2,31,30),{ });
  474.     case(@getchar(DialAT,1,2),{AT},,{at},,
  475.         ,{DialAT:={AT}|DialAT});
  476.     case(@getchar(Attr,1,1),
  477.     1,{   DialAT:=DialAT | {DP}
  478.     },2,{ DialAT:=DialAT | {DT}
  479.     });
  480.     DialAT := DialAT | @head(@getchar(OldL2,1,30),{ });
  481.     count:=@getchar(OldL3,14,3);
  482.     case(count == 0 ,{Yes},{count:=9999});
  483.     loop({  count:=count-1;
  484.         dialone(DialAT,{
  485.             %Auto     @head(@getchar(OldL2,61,20),{ }) ;
  486.             case(Auto<>{},
  487.             {Yes},{
  488.                 case(@filechk( Auto ),{Yes},{ 
  489.                     %p {#}|Auto ;
  490.                     p
  491.                 },,{
  492.                     display({\nAutoPilot File｢}|Auto|
  493.                         {｣はありません\n})
  494.                 })
  495.             });
  496.             im({No})
  497.         },{im(count>0)} )
  498.     });
  499.     stop
  500. };
  501.  
  502. %FirstMenu{
  503.     var line[5];
  504.     var no[5];
  505.     %CSel @SetCName;
  506.     %MenuText {c     ＜＜接続するセンタ-,又は,処理を選択して下さい＞＞\n} |
  507.      @case(NumHost,
  508.       0,{im({s  /<共通属性>/<ｾﾝﾀｰ登録>/----------/----------/<処理中止>})},
  509.      45,{im({s  /<共通属性>/----------/<ｾﾝﾀｰ削除>/<ｾﾝﾀｰ変更>/<処理中止>})},
  510.        ,{im({s  /<共通属性>/<ｾﾝﾀｰ登録>/<ｾﾝﾀｰ削除>/<ｾﾝﾀｰ変更>/<処理中止>})}
  511.       );
  512.     %MenuRes @plane(MenuText | CSel);
  513.     case(@head(@getline(MenuRes,1,1),{\n})+0,
  514.     1,{ RepMop; SetMop },
  515.     2,{case(NumHost<45,{Yes},AddCenter)},
  516.     3,{case(NumHost!=0,{Yes},DelCenter)},
  517.     4,{case(NumHost!=0,{Yes},RepCenter)},
  518.     5,{stop},
  519.     0,{
  520.         line:=2;
  521.         loop({
  522.             no:= @head(@getline(MenuRes,line,1),{\n});
  523.             case(no!=0,{Yes},{AccCenter((line-2)*3+no)});
  524.             line:=line+1;
  525.             im((no == 0 ) && (no <> {}))
  526.         });
  527.         case(no=={},{Yes},{stop})
  528.     });
  529. };
  530.  
  531.  
  532.  /* Main of LINE.PLT */
  533. %CurDir @case(@nochar(@getcdir),
  534.                 3,{getchar(@getcdir,1,2)},
  535.          ,{getcdir});
  536.  
  537. footnote({});
  538. stopbit(1);
  539. dataleng({8bit});
  540. parity({None});
  541. setoak({J});
  542. click({No});
  543. nattou({Yes});
  544.  
  545. %LineFile @case(@nochar(@initdir),
  546.         3,{head(@initdir,{\})},,{initdir}) | {\LINE.DAT};
  547. case(@filechk( LineFile ),
  548.   {Yes},{
  549.     AttrData:=@read(LineFile,1,5);
  550.     LineData:=@read(LineFile,6,999);
  551.     OneSize:=@nochar(@getline(LineFile,1,3));
  552.     case(OneSize<OneSizeM,{Yes},{OneSize:=OneSizeM});
  553.    },{No},{makefile});
  554.  
  555. SetMop;
  556.  
  557. loop({    FirstMenu; im({Yes})   })
  558.